home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Light ROM 1
/
LIGHT-ROM 1 (Amiga Library Services)(1994).iso
/
ffdisks
/
d883.lha
/
BBBBS
/
BBBBS59.lha
/
rexx
/
BumpTime.baud
< prev
next >
Wrap
Text File
|
1991-12-06
|
321b
|
12 lines
/* BumpTime.baud */
oldminutes=GETCLIP('BBS_minutes')
oldcom=GETCLIP('BBS_COMMAND')
minutes=Request(100,100,"Enter new minutes",oldminutes,,'CANCEL','BAUD')
IF DATATYPE(minutes,'N') & minutes>0 & minutes~=oldminutes THEN
DO
CALL SETCLIP('BBS_minutes',minutes)
CALL SETCLIP('BBS_COMMAND',oldcom'T')
END
EXIT;